Sub Main()	dim a[3] as string	dim s as string		msgbox("Array and Array of objects")		a[0] = "Jose"	a[1] = "L"	a[2] = "Cuevas"	s = a[0] & " " & a[1] & " " & " " & a[2]	msgbox("Hello " & s)	dim d[3] as date	d[0] = new date	d[1] = new date	d[2] = new date	d[2] = d[1]    	if d[1].ParseDate("12/25/02") = true then		msgbox("Shortdate: " & d[1].shortdate)	end if	msgbox("Long date d[0]: " & d[0].longdate)		msgbox("Long date d[1]: " & d[1].longdate)	msgbox("Long date d[2]: " & d[2].longdate)end sub